object BlackScreen: TBlackScreen Left = 403 Top = 241 BorderIcons = [] BorderStyle = bsNone Caption = 'TBlackScreen' ClientHeight = 537 ClientWidth = 685 Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop KeyPreview = True OldCreateOrder = False WindowState = wsMaximized OnActivate = FormActivate OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnDestroy = FormDestroy OnKeyDown = FormKeyDown OnMouseMove = FormMouseMove OnResize = FormResize OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Image1: TImage Left = 216 Top = 72 Width = 473 Height = 310 Stretch = True OnMouseMove = FormMouseMove end object Panel1: TPanel Left = 272 Top = 296 Width = 393 Height = 129 BevelWidth = 4 BorderWidth = 4 Color = clMaroon ParentBackground = False TabOrder = 0 Visible = False OnResize = Panel1Resize object Label5: TLabel Left = 64 Top = 40 Width = 265 Height = 37 Caption = 'Invalid password!' Font.Charset = DEFAULT_CHARSET Font.Color = clYellow Font.Height = -32 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end end object HintPanel: TPanel Left = 264 Top = 64 Width = 393 Height = 169 BevelOuter = bvNone BevelWidth = 2 Color = clBlack TabOrder = 1 object Shape1: TShape Left = 0 Top = 0 Width = 393 Height = 169 Align = alClient Brush.Color = clBtnFace Pen.Color = 15580837 Pen.Width = 2 end object hp: TImage Left = 6 Top = 8 Width = 32 Height = 32 Picture.Data = {} Transparent = True end object Label7: TLabel Left = 42 Top = 7 Width = 263 Height = 29 Caption = 'Password is not defined!' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -24 Font.Name = 'MS Sans Serif' Font.Style = [fsUnderline] ParentColor = False ParentFont = False end object hp1: TImage Left = 16 Top = 52 Width = 16 Height = 16 Picture.Data = {} Transparent = True end object Label8: TLabel Left = 40 Top = 50 Width = 317 Height = 13 Caption = 'Click the button Login (at the bottom left corner) to get into y' + 'our PC.' Color = clBtnFace ParentColor = False end object hp2: TImage Left = 16 Top = 76 Width = 16 Height = 16 Picture.Data = {} Transparent = True end object Label9: TLabel Left = 40 Top = 74 Width = 249 Height = 13 Caption = 'To define the password follow the instructions below:' Color = clBtnFace ParentColor = False end object Label11: TLabel Left = 40 Top = 88 Width = 242 Height = 13 Caption = '- start %PRGTITLE% (see the icon on the desktop);' Color = clBtnFace ParentColor = False end object Label10: TLabel Left = 40 Top = 102 Width = 312 Height = 13 Caption = '- select the folder Screen Lock in Common Restrictions of the tr' + 'ee;' Color = clBtnFace ParentColor = False end object Label12: TLabel Left = 40 Top = 116 Width = 297 Height = 13 Caption = '- select the item Screen-lock Password, then enter a password.' Color = clBtnFace ParentColor = False end object Label13: TLabel Left = 40 Top = 140 Width = 317 Height = 13 Caption = 'This frame will not appear on the screen if you define the passw' + 'ord.' Color = clBtnFace ParentColor = False end object hp3: TImage Left = 16 Top = 140 Width = 16 Height = 16 Picture.Data = {} Transparent = True end end object Pnl: TPanel Left = 8 Top = 448 Width = 161 Height = 57 BevelOuter = bvNone TabOrder = 2 object Shape2: TShape Left = 0 Top = 0 Width = 161 Height = 57 Align = alClient Brush.Color = clBtnFace Pen.Color = 15580837 Pen.Width = 2 end object Label1: TLabel Left = 7 Top = 6 Width = 140 Height = 13 Caption = 'Password is not defined!' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Password: TEdit Left = 6 Top = 26 Width = 105 Height = 21 CharCase = ecUpperCase PasswordChar = '*' TabOrder = 0 end object LoginBtn: TButton Left = 112 Top = 25 Width = 42 Height = 24 Cursor = crHandPoint BiDiMode = bdLeftToRight Caption = '&Login' Default = True ParentBiDiMode = False TabOrder = 1 OnClick = LoginBtnClick end end object Timer: TTimer Enabled = False Interval = 100 OnTimer = TimerTimer Left = 600 Top = 368 end object Timer1: TTimer Enabled = False OnTimer = Timer1Timer Left = 56 Top = 264 end object Timer2: TTimer Interval = 20000 OnTimer = Timer2Timer Left = 80 Top = 136 end end